home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 December
/
CHIPNET Aralık 1997.iso
/
ftp
/
fwftp2.exe
/
FTPWIN.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1996-07-17
|
18KB
|
563 lines
object Form1: TForm1
Left = 207
Top = 106
Width = 451
Height = 350
Caption = 'FreeWay FTP'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu1
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 16
object DirectoryBMP: TImage
Left = 208
Top = 80
Width = 17
Height = 9
Picture.Data = {<image000.bmp>}
Visible = False
end
object FileBMP: TImage
Left = 208
Top = 96
Width = 17
Height = 9
Picture.Data = {<image001.bmp>}
Visible = False
end
object Button1: TSpeedButton
Left = 208
Top = 144
Width = 25
Height = 33
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
Layout = blGlyphRight
NumGlyphs = 2
OnClick = Button1Click
end
object Button2: TSpeedButton
Left = 208
Top = 192
Width = 25
Height = 33
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = Button2Click
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 443
Height = 57
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 8
Top = 8
Width = 40
Height = 41
Hint = 'Rename file'
Caption = 'Rename'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F5550005555559995555777555555777550000}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 48
Top = 8
Width = 40
Height = 41
Hint = 'Create directory'
Caption = 'MkDir'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
55555555555555555555555555555555555555555555555555550000}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 88
Top = 8
Width = 40
Height = 41
Hint = 'Delete file or directory'
Caption = 'Delete'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F55550005555555055555777555555575550000}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 304
Top = 8
Width = 40
Height = 41
Hint = 'Abort transfer'
Caption = 'Abort'
Enabled = False
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 128
Top = 8
Width = 40
Height = 41
Hint = 'Change working directory'
Caption = 'ChDir'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
5555575FFF7555555555570000755555555555777755555555550000}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 168
Top = 8
Width = 40
Height = 41
Hint = 'Refresh directory list'
Caption = 'Dir list'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F7733333333333300333333333333337733333333333330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 208
Top = 8
Width = 40
Height = 41
Hint = 'View text file'
Caption = 'View'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 264
Top = 8
Width = 40
Height = 41
Hint = 'Close connection'
Caption = 'Close'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton8Click
end
object RadioGroup1: TRadioGroup
Left = 352
Top = 8
Width = 81
Height = 41
HelpContext = 49
Caption = 'Mode'
Columns = 2
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'Bin'
'Asc')
ParentFont = False
TabOrder = 0
end
end
object ComboBox1: TComboBox
Left = 24
Top = 72
Width = 177
Height = 24
HelpContext = 50
ItemHeight = 16
TabOrder = 1
OnChange = ComboBox1Change
OnEnter = ListBox1Enter
end
object ComboBox2: TComboBox
Left = 240
Top = 72
Width = 177
Height = 24
HelpContext = 50
ItemHeight = 16
TabOrder = 2
OnChange = ComboBox2Change
OnEnter = ListBox2Enter
end
object ListBox1: TListBox
Left = 24
Top = 136
Width = 177
Height = 105
HelpContext = 52
ItemHeight = 16
Style = lbOwnerDrawFixed
TabOrder = 3
OnDblClick = ListBox1DblClick
OnDrawItem = ListBox1DrawItem
OnEnter = ListBox1Enter
OnMeasureItem = ListBox1MeasureItem
end
object ListBox2: TListBox
Left = 240
Top = 136
Width = 177
Height = 105
HelpContext = 52
ItemHeight = 16
Style = lbOwnerDrawFixed
TabOrder = 4
OnDblClick = ListBox2DblClick
OnDrawItem = ListBox2DrawItem
OnEnter = ListBox2Enter
OnMeasureItem = ListBox2MeasureItem
end
object StatusBar1: TStatusBar
Left = 0
Top = 285
Width = 443
Height = 19
Panels = <>
SimplePanel = True
end
object Edit1: TEdit
Left = 24
Top = 248
Width = 177
Height = 24
HelpContext = 53
Color = clBtnFace
TabOrder = 6
end
object Edit2: TEdit
Left = 240
Top = 248
Width = 177
Height = 24
HelpContext = 53
Color = clBtnFace
TabOrder = 7
end
object Edit3: TEdit
Left = 24
Top = 104
Width = 177
Height = 24
HelpContext = 51
Color = clBtnFace
TabOrder = 8
end
object Edit4: TEdit
Left = 240
Top = 104
Width = 177
Height = 24
HelpContext = 51
Color = clBtnFace
TabOrder = 9
end
object MainMenu1: TMainMenu
Left = 48
Top = 40
object Server1: TMenuItem
Caption = 'Server'
ShortCut = 0
object Enabled1: TMenuItem
Caption = 'Enabled'
Checked = True
HelpContext = 7
ShortCut = 0
OnClick = Enabled1Click
end
object Statistics1: TMenuItem
Caption = 'Status'
HelpContext = 56
ShortCut = 0
OnClick = Statistics1Click
end
object Configure1: TMenuItem
Caption = 'Configure...'
ShortCut = 0
OnClick = Configure1Click
end
end
object Client1: TMenuItem
Caption = 'Client'
ShortCut = 0
object Dialog1: TMenuItem
Caption = 'Dialog...'
HelpContext = 57
ShortCut = 0
OnClick = Dialog1Click
end
object Configure2: TMenuItem
Caption = 'Configure...'
ShortCut = 0
OnClick = Configure2Click
end
end
object Tools1: TMenuItem
Caption = 'Tools'
ShortCut = 0
object DNSLookup1: TMenuItem
Caption = 'DNS Lookup'
HelpContext = 10
ShortCut = 0
OnClick = DNSLookup1Click
end
end
object Help1: TMenuItem
Caption = 'Help'
ShortCut = 0
object Contents1: TMenuItem
Caption = 'Contents'
ShortCut = 0
OnClick = Contents1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object About1: TMenuItem
Caption = 'About'
ShortCut = 0
OnClick = About1Click
end
end
end
object ServerSocket1: TServerSocket
Address = '0.0.0.0'
Port = '21'
Protocol = 'tcp'
OnAccept = ServerSocket1Accept
OnDisconnect = ServerSocket1Disconnect
OnRead = ServerSocket1Read
OnWrite = ServerSocket1Write
Left = 16
Top = 40
end
object ServerSocket2: TServerSocket
Address = '0.0.0.0'
Port = '20'
Protocol = 'tcp'
MaxConnections = 1
ClientOptions = [csoRead]
OnAccept = ServerSocket2Accept
OnDisconnect = ServerSocket2Disconnect
OnRead = ServerSocket2Read
Left = 336
Top = 40
end
object ClientSocket1: TClientSocket
Address = '0.0.0.0'
Port = '21'
Protocol = 'tcp'
TimeOut = 40
OnConnect = ClientSocket1Connect
OnTimeOut = ClientSocket1TimeOut
OnRead = ClientSocket1Read
Left = 368
Top = 40
end
object ClientSocket2: TClientSocket
Address = '0.0.0.0'
Port = '21'
Protocol = 'tcp'
TimeOut = 40
OnConnect = ClientSocket2Connect
OnTimeOut = ClientSocket1TimeOut
OnRead = ClientSocket2Read
Left = 400
Top = 40
end
end